Business Assistant/Business Assistant.iso/home/chkmstr/setup.prg

Text File | 1990-03-15 | 8KB | 290 lines

CLEAR
@10,20 SAY "LOADING DATA FILES ----------------------------"
IF ISCOLOR()
SET COLOR TO W/B,W/R,BG
ENDIF
RESTORE FROM CHEXMANG
SET SAFETY OFF
SET ECHO OFF
SET TALK OFF
USE CONFIG
BYPASS=BYPASSD
IF BYPASS= "0"
CLEAR
@2,1 TO 20,78
@4,15 SAY "**************************************************"
@6,30 SAY "WARNING !!!!!!"
@8,15 SAY "**************************************************"
@10,22 SAY "YOU WILL ONLY BE ABLE TO RUN THIS"
@11,22 SAY "PROGRAM { ONE (1) } TIME IN ORDER"
@12,22 SAY "TO INITIALLY SET UP YOUR CHECKING"
@13,22 SAY "ACCOUNT SYSTEM. TO RUN IT AGAIN WOULD"
@14,22 SAY "DESTROY ALL YOUR ACCOUNT DATA !!!!!"
@16,22 SAY "ARE YOU READY AT THIS TIME TO SET UP"
@17,22 SAY "YOUR SYSTEM ?? TYPE { Y } TO CONTINUE,"
@18,22 SAY "TYPE { N } TO CANCEL AND RETURN TO DBASE."
ABORT=" "
DO WHILE .NOT. (UPPER(ABORT) $ 'YN')
WAIT " " TO ABORT
IF UPPER(ABORT) ='N'
CLEAR
@10,30 SAY "OPERATION CANCELLED !!!!"
CANCEL
ENDIF
CLEAR
@10,10 SAY "SETTING UP DATA FILES -------------------------"
REPLACE CONFIGD WITH CONFIG
CLEAR MEMORY
CONFIG=" "
CONFIG=CONFIGD
USE CHKBKUP INDEX CBATNM,CHBKPT,CKBKSQ
ZAP
PACK
USE DEPBKUP INDEX DBKAMT
ZAP
PACK
USE DEPARC INDEX DARAMT
ZAP
PACK
USE CHKARC INDEX CKARNM,CHARPT,CKARSQ
ZAP
PACK
USE CHEXREG INDEX CKATNM,CKSEQ,CHEXPT
ZAP
PACK
USE DEPREG INDEX DEPAMT
ZAP
PACK
USE WORKCHEX INDEX WORKCHEX
ZAP
PACK
USE ADDDEP INDEX ADDDEP
ZAP
PACK
USE PERMCHEX
ZAP
USE REXREG
ZAP
USE REXCHEX
ZAP
USE REXDEP
ZAP
USE ACCTC INDEX ACCTC
ZAP
PACK
USE ACCAR INDEX ACCAR
ZAP
PACK
USE KIMACT
ZAP
PACK
USE CSTATS INDEX CSTATS
ZAP
PACK
USE CKTOT
ZAP
PACK
USE CKTOAR
ZAP
PACK
MESG= " "
AUTO= " "
PASS= "0"
STORE 0 TO MULV,CGIN,MILE,CGEXP,CRUN,C00T,C01T,C02T,C03T,C04T,C05T,;
CNTOT,ACTMIN,WCSN,COUNTER,ACCTN,SEQ,TRAND,TRANE,TRANF,TRANG,RCFBU,;
RDFBU,ADDDEP_TOT,ACCTA,ACCTB,ACCTC,ACCTD,ACCTE,ACCTF,ACCTG,ACCTH,;
A06SUM,A11SUM,DEP_TOTAL,CHEX_TOTAL,WKCHEX_TOT,GRAND_TOTL,DPARC,CKARC
STORE 0 TO BASIS,RESID
STAT=0.00
STAT2=0.00
COMBINE=0.00
BANK2V=0.00
FULLTEXT = " "
DB10="           "
DA02="           "
ACCTKT= "0"
XCPY= " "
B111A=0.00
B112A=0.00
B113A=0.00
ARCYEAR=YEAR(DATE())
TRANDATE=MONTH(DATE())
STORE "                      " TO A,B,C,D,E,F,G,H,BANK1,BANK2,;
A01,A02,A03,A04,A05,A06,A07,A08,A09,A10,A11,A12,B01,B02,B03,B04,;
B05,B06,B07,B08,B09,B10,B11,B12,B13,B14,B111,B1111,B112,B1121
STORE "                      " TO B1131,C01,C02,C03,C04,C05,C06,;
E01,E02,F01,F02,B113,C99,C09,C11,C12,D01,D02,C10,C08,C07
ENDIF
CLEAR
@8,25 SAY "    THIS FIRST STEP WILL"
@10,25 SAY "ALLOW YOU TO ASSIGN ACCOUNT"
@12,25 SAY "   NAMES AND OTHER DATA."
@14,25 SAY "IF YOU WISH TO SKIP OVER AN"
@16,25 SAY "ENTRY, PRESS { DOWN ARROW } KEY !"
WAIT
CLEAR
@2,8 SAY "ENTER ACCOUNT NUMBER                      " GET ACCTN
@3,8 SAY "ENTER STARTING CHECK SEQUENCE NUMBER      " GET SEQ
@4,8 SAY "ENTER ACCOUNT MINIMUM WARNING VALUE       " GET ACTMIN
@5,8 SAY "ENTER NAME ACCOUNT { A }                  " GET A
@6,8 SAY "ENTER NAME ACCOUNT { B }                  " GET B
@7,8 SAY "ENTER NAME ACCOUNT { C }                  " GET C
@8,8 SAY "ENTER NAME ACCOUNT { D }                  " GET D
@9,8 SAY "ENTER NAME ACCOUNT { E }                  " GET E
@10,8 SAY "ENTER NAME ACCOUNT { F }                  " GET F
@11,8 SAY "ENTER NAME ACCOUNT { G }                  " GET G
@12,8 SAY "ENTER NAME ACCOUNT { H }                  " GET H
@13,8 SAY "BANK WHERE CHECKING ACCOUNT IS MAINTAINED " GET BANK1
@14,8 SAY "BANK OR INSTITUTION WHERE 2nd ACCOUNT IS  " GET BANK2
@15,8 SAY "BYPASS CERTAIN HELP MESSAGES { Y/N } ?    " GET MESG
@16,8 SAY "AUTOMATIC DEPOSIT DATE YEAR ? ENTER { A } " GET AUTO
READ
CLEAR
@2,14 SAY "CONTINUE ASSIGNING ACCOUNT VALUES  { *P* and *B* }."
@5,10 SAY "ENTER { DA02 } TO DISPLAY              " GET DA02
@6,10 SAY "ENTER { DB10 } TO DISPLAY              " GET DB10
@7,10 SAY "ENTER $$ VALUE OF { DA02 }             " GET STAT
@8,10 SAY "ENTER $$ VALUE OF { DB10 }             " GET STAT2
@9,10 SAY "ENTER NAME B111                        " GET B111
@10,10 SAY "ENTER NAME B1111                       " GET B1111
@11,10 SAY "ENTER NAME B112                        " GET B112
@12,10 SAY "ENTER NAME B1121                       " GET B1121
@13,10 SAY "ENTER NAME B113                        " GET B113
@14,10 SAY "ENTER NAME B1131                       " GET B1131
@15,10 SAY "ENTER TRANSFER AMOUNT FOR ACCOUNT { E }" GET TRANE
@16,10 SAY "ENTER TRANSFER AMOUNT FOR ACCOUNT { F }" GET TRANF
@17,10 SAY "ENTER TRANSFER AMOUNT FOR ACCOUNT { G }" GET TRANG
@18,10 SAY "ENTER INITIAL VALUE FOR ACCT.{C} EXPS. " GET CGEXP
@19,10 SAY "ENTER AUTOMOBILE CENTS PER MILE        " GET MILE
@20,10 SAY "ENTER BASIS VALUE OF HOME              " GET BASIS
@21,10 SAY "ENTER NUMBER OF ROOMS IN HOME          " GET MULV
READ
MESG=UPPER(MESG)
I="I - " + BANK2
IF PASS= "0"
REMAIN=31.5
RESID=BASIS
PASS="1"
ENDIF
CLEAR
@2,25 SAY "     YOU ARE NOW READY TO "
@3,25 SAY "SET-UP YOUR CHECKING ACCOUNT CODES."
@5,1 SAY "A01" GET A01
@6,1 SAY "A02" GET A02
@7,1 SAY "A03" GET A03
@8,1 SAY "A04" GET A04
@9,1 SAY "A05" GET A05
@10,1 SAY "A06" GET A06
@11,1 SAY "A07" GET A07
@12,1 SAY "A08" GET A08
@13,1 SAY "A09" GET A09
@14,1 SAY "A10" GET A10
@15,1 SAY "A11" GET A11
@16,1 SAY "A12" GET A12
@18,1 SAY "D01" GET D01
@19,1 SAY "D02" GET D02
@5,27 SAY "B01" GET B01
@6,27 SAY "B02" GET B02
@7,27 SAY "B03" GET B03
@8,27 SAY "B04" GET B04
@9,27 SAY "B05" GET B05
@10,27 SAY "B06" GET B06
@11,27 SAY "B07" GET B07
@12,27 SAY "B08" GET B08
@13,27 SAY "B09" GET B09
@14,27 SAY "B10" GET B10
@15,27 SAY "B11" GET B11
@16,27 SAY "B12" GET B12
@17,27 SAY "B13" GET B13
@18,27 SAY "B14" GET B14
@20,27 SAY "E01" GET E01
@21,27 SAY "E02" GET E02
@5,53 SAY "C01" GET C01
@6,53 SAY "C02" GET C02
@7,53 SAY "C03" GET C03
@8,53 SAY "C04" GET C04
@9,53 SAY "C05" GET C05
@10,53 SAY "C06" GET C06
@11,53 SAY "C07" GET C07
@12,53 SAY "C08" GET C08
@13,53 SAY "C09" GET C09
@14,53 SAY "C10" GET C10
@15,53 SAY "C11" GET C11
@16,53 SAY "C12" GET C12
@17,53 SAY "C99" GET C99
@19,53 SAY "F01" GET F01
@20,53 SAY "F02" GET F02
READ
CLEAR
@10,23 SAY "IF YOU HAVE { XCOPY } ON YOUR"
@11,23 SAY "DOS DISK, AND YOU WANT TO USE"
@12,23 SAY "IT INSTEAD OF { COPY } TO BACKUP"
@13,23 SAY "YOUR DATA FILES, ENTER { X } NOW !"
@15,23 SAY "    OTHERWISE, ENTER { C }."
XCPY= " "
DO WHILE .NOT. (UPPER(XCPY) $ 'CX')
WAIT " " TO XCPY
ENDDO
XCPY=UPPER(XCPY)
IF CONFIG= "C" .OR. CONFIG= "D"
CLEAR
@7,25 SAY "AT THIS POINT YOU WILL SELECT"
@8,25 SAY "YOUR BACKUP FLOPPY DRIVES."
@10,25 SAY "YOU ARE NOW SET TO BACKUP TO"
@11,25 SAY "BOTH { A } AND { B } DRIVES."
@12,25 SAY "LEAVE AS IS, OR MODIFY !!!!"
@14,25 SAY "PRESS { CTRL-W } WHEN DONE."
WAIT
DO CASE
CASE CONFIG= "C".AND. XCPY= "C"
MODIFY COMMAND SAVEC.BAT
CASE CONFIG= "D".AND. XCPY= "C"
MODIFY COMMAND SAVED.BAT
CASE CONFIG= "C".AND. XCPY= "X"
MODIFY COMMAND XSAVEC.BAT
CASE CONFIG= "D".AND. XCPY= "X"
MODIFY COMMAND XSAVED.BAT
ENDCASE
ENDIF
CLEAR
@8,20 SAY "    THIS STEP ALLOWS YOU TO ENTER"
@9,20 SAY "RECORDS INTO YOUR PERMENANT CHECK FILE."
@11,20 SAY "   PRESS { CTRL-END } WHEN DONE !!!"
@13,15 SAY "MAKE SURE TO ENTER A { P } INTO THE { V } FIELD !!"
WAIT
USE PERMCHEX
APPEND
CLEAR
@8,25 SAY "IF YOUR ENTRIES ARE CORRECT AND"
@9,25 SAY "YOU WISH TO SAVE THEM, TYPE { S }."
@11,25 SAY "OTHERWISE, TYPE { A } TO RETURN"
@12,25 SAY "TO BEGINNING OF SETUP PROGRAM."
RETN= " "
DO WHILE .NOT. (UPPER(RETN) $ 'SA')
WAIT " " TO RETN
ENDDO
IF UPPER(RETN)= "A"
DO SETUP
ENDIF
BYPASS= "1"
USE CONFIG
RNUM=REGNOD
REPLACE BYPASSD WITH BYPASS
CLEAR
@10,20 SAY "LOADING DATA FILES ----------------------------"
DO CASE
CASE CONFIG="A"
SAVE TO A:CHEXMANG
CASE CONFIG="B"
SAVE TO B:CHEXMANG
CASE CONFIG="C"
SAVE TO C:\CHEXMANG\CHEXMANG
CASE CONFIG="D"
SAVE TO D:\CHEXMANG\CHEXMANG
ENDCASE
CLOSE DATABASE
SET PROCEDURE TO CHECK
DO CHEXMENU
RETURN